home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 10 .tab(1,4,7;in hypra-ass: .li 1,4,7
  2. 20 .stop$c000;in hypra-ass: .ba $c000
  3. 30 ;*************************************************
  4. 40 ; 16-bitschleife anwendung : bitmap-loeschen
  5. 50 ;*************************************************
  6. 60 ;
  7. 70 .remstart=$2000;in hypra-ass: .eq start = $2000
  8. 80 .remende=$3f3f;   -"-        .eq ende  = $3f3f
  9. 90 .[143]wert=$00;   -"-         .eq wert = $00
  10. 100 ;
  11. 110 ;---------- initialisierung -----------
  12. 120 ;
  13. 130  for#<(start);lsb startadresse
  14. 140  input##>(start);msb startadresse
  15. 150  next$fa;in vektor $fa/fb schreiben
  16. 160  goto$fb
  17. 170 ;
  18. 180  for#<(ende);lsb endadresse+1
  19. 190  input##>(ende);msb endadresse
  20. 200  next$fc;in vektor $fc/fd schreiben
  21. 210  goto$fd
  22. 220 ;
  23. 230  for#wert;einzuschreibenden wert
  24. 240  next$fe;nach $fe schreiben
  25. 250 ;
  26. 260  input##$00;index auf null stellen
  27. 270 ;
  28. 280 ;---------- job ausfuehren -------------
  29. 290 ;
  30. 300 label for$fe;wert laden
  31. 310  next($fa),y;und eintragen
  32. 320 ;
  33. 330 ;--------- steuerteil ------------------
  34. 340 ;
  35. 350  run$fa;lsb start nun als zaehler erhoehen
  36. 360  usrmarke;falls kein ueberlauf weiter
  37. 370  run$fb;sonst msb ebenfalls erhoehen
  38. 380 marke for$fa;vergleich des lsb
  39. 390  input$fc;mit lsb der endadresse (flaggen setzen)
  40. 400  for$fb;vom msb des zaehlers
  41. 410  wait$fd;wird das msb der endadresse subtrahiert
  42. 420  intlabel;zurueck zum job wenn zaehler < endadresse
  43. 430 ;
  44. 440 ;-------- ausgang ---------------------
  45. 450 ;
  46. 460  or;sonst programmende
  47. 470 ;
  48. 480 .tou,1,4,7;in hypra-ass: .sy 1,4,7
  49.